home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / TunnelTest3.AMOS / TunnelTest3.amosSourceCode < prev   
AMOS Source Code  |  1997-04-18  |  3KB  |  91 lines
  1. Reserve As Work 100,320*256/4
  2. Set Tempras Start(100),320*256/4
  3. Unpack 8 To 0
  4. Screen Open 1,320,256,16,0 : Screen Hide 
  5. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  6. Screen Open 2,320,256,16,0 : Screen Hide 
  7. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  8. Screen Open 3,320,256,16,0 : Screen Hide 
  9. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  10. Screen Open 4,320,256,16,0 : Screen Hide 
  11. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  12. Screen Open 7,320,256,2,0 : Screen Hide 
  13. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  14. Palette 0,$F
  15.  Extension_8_128A 7
  16. MX=160 : MY=128
  17. ZP=0 : S=4 : W=64 : DD=Rnd(1023) : T1=Rnd(5)+1 : T2=Rnd(5)+1
  18. FRAME=0 : ANI=0 : BLPC=0
  19. Screen 7
  20. For AAA=0 To 127
  21.   Gosub DRARING
  22. Next 
  23. Screen 0
  24. Double Buffer : Autoback 0
  25. G=$FFF
  26. Fade 3,0,$1,$2,$3,$4,$5,$6,$7,$0,$2,$4,$6,$8,$A,$C,$E,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G
  27. Screen 7
  28. FAD=0
  29. Do 
  30.   Wait Vbl 
  31.   If FAD=0
  32.      Extension_8_12B2 3-ANI*2+BLPC/4,BLPC and 3 To 0,3
  33.     Add BLPC,1,0 To 7
  34.     OANI=ANI
  35.     Gosub DRARING
  36.   Else 
  37.     Screen 0
  38.     If Colour(0)=G
  39.       Fade 1,0,$1,$2,$3,$4,$5,$6,$7,$0,$2,$4,$6,$8,$A,$C,$E,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G
  40.        Extension_8_12B2 3-ANI*2+BLPC/4,BLPC and 3 To 0,3
  41.       FAD=0
  42.     Else 
  43.        Extension_8_12B2 1+ANI*2+BLPC/4,BLPC and 3 To 0,3
  44.     End If 
  45.     Screen 7
  46.     Add BLPC,1,0 To 7
  47.     OANI=ANI
  48.   End If 
  49.   If OANI<>ANI
  50.     Screen 0
  51.     Fade 1,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G
  52.     FAD=1
  53.     Screen 7
  54.   End If 
  55.   Screen Swap 0
  56. Loop 
  57. End 
  58. DRARING:
  59.   If Z=0 Then Extension_8_121C 7,0
  60.   ZZ=((Z+ZP) and 63)+7
  61.   D2= Extension_8_1114(ZZ*T1+DD,700)
  62.   D3= Extension_8_1106(ZZ*T2+DD,700)
  63.   WW=PP*W
  64.   For A=WW To 1023+WW Step W*2
  65.     Z1=1024/ZZ : Z2=1024/(ZZ+S)
  66.     X1= Extension_8_1114(A,Z1)+MX+D2/Z1
  67.     Y1= Extension_8_1106(A,Z1)+MY+D3/Z1
  68.     X2= Extension_8_1114(A+W,Z1)+MX+D2/Z1
  69.     Y2= Extension_8_1106(A+W,Z1)+MY+D3/Z1
  70.      Extension_8_1030 X1,Y1 To X2,Y2,1,-1
  71.     X3= Extension_8_1114(A+W,Z2)+MX+D2/Z2
  72.     Y3= Extension_8_1106(A+W,Z2)+MY+D3/Z2
  73.      Extension_8_1030 X2,Y2 To X3,Y3,1,-1
  74.     X4= Extension_8_1114(A,Z2)+MX+D2/Z2
  75.     Y4= Extension_8_1106(A,Z2)+MY+D3/Z2
  76.      Extension_8_1030 X3,Y3 To X4,Y4,1,-1
  77.      Extension_8_1030 X4,Y4 To X1,Y1,1,-1
  78. '    Ink 1 : Polygon X1,Y1 To X2,Y2 To X3,Y3 To Y4,Y4
  79.   Next 
  80.   PP=1-PP
  81.   Add Z,S
  82.   If Z>63
  83.     Z=0
  84.      Extension_8_12B2 7,0 To 1+ANI*2+FRAME/4,FRAME and 3
  85.      Extension_8_1058 7,0 To 1+ANI*2+FRAME/4,FRAME and 3
  86.     Inc FRAME : Add ZP,-1
  87.     If FRAME=8
  88.       ANI=1-ANI : FRAME=0 : DD=Rnd(1023) : T1=Rnd(5)+1 : T2=Rnd(5)+1
  89.     End If 
  90.   End If 
  91. Return